Apple Reference & Presen…rary 6 (Reseller Edition)/Apple Ref. & Pres. Lib.v6.0.toast/pc/3-Presentations/Apple Demos/CPUs/Macintosh Solutions Demo/Macintosh Solutions 1.0/card_4600.txt

Text File | 1990-08-24 | 7.0 KB | 314 lines

-- card: 4600 from stack: in.0
-- bmap block id: 2280
-- flags: C000
-- background id: 4734
-- name: USAH1


-- part 21 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=325 top=93 right=115 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Which Macintosh?…
----- HyperTalk script -----

on mouseUp -- Home Solution
  determineSoftware -- bg script
  put char 4 of short name of this card into whichCategory
  repeat with i = 7 to 9
    set cursor to busy
    if the hilight of cd btn i = true then
      goSolution whichCategory,2
      exit mouseUp
    end if
  end repeat
  repeat with i = 2 to 6
    set cursor to busy
    if the hilight of cd btn i = true then
      goSolution whichCategory,1
      exit mouseUp
    end if
  end repeat
  answer "Please select at least one software category."
end mouseUp




-- part 3 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=60 top=271 right=342 bottom=187
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Home A
----- HyperTalk script -----
on mouseUp
  put char 4 of short name of this card into whichCategory
  put alphaNum(last char of short name of me) into whichSolution
  goSolution whichCategory,whichSolution
end mouseUp



-- part 6 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=200 top=281 right=340 bottom=330
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Home B
----- HyperTalk script -----
on mouseUp
  put char 4 of short name of this card into whichCategory
  put alphaNum(last char of short name of me) into whichSolution
  goSolution whichCategory,whichSolution
end mouseUp



-- part 7 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=353 top=270 right=342 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Home C
----- HyperTalk script -----
on mouseUp
  put char 4 of short name of this card into whichCategory
  put alphaNum(last char of short name of me) into whichSolution
  goSolution whichCategory,whichSolution
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=79 top=284 right=305 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Word Processing
----- HyperTalk script -----
on mouseUp
  if the hilight of me is true then putMeInList (short name of me)
  else getMeOutOfList (short name of me)
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=79 top=264 right=285 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Spreadsheets
----- HyperTalk script -----
on mouseUp
  if the hilight of me is true then putMeInList (short name of me)
  else getMeOutOfList (short name of me)
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=79 top=204 right=225 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Database
----- HyperTalk script -----
on mouseUp
  if the hilight of me is true then putMeInList (short name of me)
  else getMeOutOfList (short name of me)
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=79 top=224 right=245 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: E-Mail
----- HyperTalk script -----
on mouseUp
  if the hilight of me is true then putMeInList (short name of me)
  else getMeOutOfList (short name of me)
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=79 top=184 right=205 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Curriculum
----- HyperTalk script -----
on mouseUp
  if the hilight of me is true then putMeInList (short name of me)
  else getMeOutOfList (short name of me)
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=79 top=144 right=165 bottom=218
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Accounting
----- HyperTalk script -----
on mouseUp
  if the hilight of me is true then putMeInList (short name of me)
  else getMeOutOfList (short name of me)
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=79 top=164 right=185 bottom=250
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Business Management
----- HyperTalk script -----
on mouseUp
  if the hilight of me is true then putMeInList (short name of me)
  else getMeOutOfList (short name of me)
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=79 top=244 right=265 bottom=218
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Presentations
----- HyperTalk script -----
on mouseUp
  if the hilight of me is true then putMeInList (short name of me)
  else getMeOutOfList (short name of me)
end mouseUp



-- part 29 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=172 top=325 right=342 bottom=426
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CoverUp


-- part contents for background part 1
----- text -----
USAH1

-- part contents for background part 3
----- text -----
2

-- part contents for card part 3
----- text -----
Word Processing
Spreadsheets
Database
E-Mail
Curriculum

-- part contents for card part 6
----- text -----
Accounting
Business Management
Presentations

-- part contents for card part 7
----- text -----
Data Entry & Retrieval
Publishing
Architecture/Drafting
CAD/CAM
Unix

-- part contents for background part 7
----- text -----
Click to select the software categories that interest you, then click the “Which Macintosh?…” button to see the recommended Macintosh.